home *** CD-ROM | disk | FTP | other *** search
/ NASA Climatology Interdisciplinary Data Collection / NASA Climatology Interdisciplinary Data Collection - Disc 4.iso / software / grads / lib / draw.gs < prev    next >
Encoding:
Text File  |  1998-04-23  |  486 b   |  19 lines
  1. *  "connects the dots" -- while user points and clicks, 
  2. *  this script connects the points with a line using the
  3. *  current line attributes.  User must point and click
  4. *  near the bottom of the screen to quit.
  5. *
  6. say 'Click near bottom of the screen to quit'
  7. 'query bpos'
  8. xold = subwrd(result,3)
  9. yold = subwrd(result,4)
  10. while (1)
  11.   'query bpos'
  12.   x = subwrd(result,3)
  13.   y = subwrd(result,4)
  14.   if (y<'0.5'); break; endif;
  15.   'draw line 'xold' 'yold' 'x' 'y
  16.   xold = x
  17.   yold = y
  18. endwhile
  19.